home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / WONDER.TCL < prev    next >
Encoding:
Text File  |  2002-04-19  |  3.7 KB  |  150 lines
  1. #
  2. #   Zustands-▄berwachungs-Script
  3. #   State Watch Script
  4. #
  5. #   Weltwunder
  6. #
  7. #   created:    15-Jun-2000 Bernd
  8. #   
  9. #   (C) COPYRIGHT 2000 RADONLABS GMBH
  10. #
  11.  
  12.  
  13. # --------------------------------------------------------
  14. #               D A S  W E L T W U N D E R
  15. # --------------------------------------------------------
  16. proc wonderwatch_normal {} {
  17.  
  18.     # vorerst hier unzerstoerbar. Bleibt so, bis es aufgesammelt
  19.     # (in BackPack) oder gebaut (kein Artefakt mehr) wird 
  20.     if {[.getartefactmode] == "false"} {
  21.         .announcestate house
  22.     } elseif {[.iscollected] == "true"} {
  23.         .announcestate backpack
  24.     } elseif {[.getcharges] <= 0} {
  25.         .setremoveable true
  26.     } elseif {[.getcreator] != "null"} {
  27.         .announcestate infactoryslot
  28.     }
  29. }
  30.  
  31. proc wonderwatch_infactoryslot {} {
  32.  
  33.     # vorerst hier unzerstoerbar. Bleibt so, bis es aufgesammelt
  34.     # (in BackPack) oder gebaut (kein Artefakt mehr) wird 
  35.     if {[.getartefactmode] == "false"} {
  36.         .announcestate house
  37.     } elseif {[.iscollected] == "true"} {
  38.         .announcestate backpack
  39.     } elseif {[.getcharges] <= 0} {
  40.         .setremoveable true
  41.     } elseif {[.getcreator] == "null"} {
  42.         .announcestate normal
  43.     }
  44. }
  45.  
  46. # Dieser Zustand sit zeitlich begrenzt und geht in finished ueber
  47. proc wonderwatch_house {} {
  48.  
  49.     # kann zerstoert oder wieder zusammengeklappt werden
  50.     if {[.iskilled] == "true"} {
  51.         .announcestate explode
  52.     } elseif {[.getartefactmode] == "true"} {
  53.         .announcestate normal
  54.     } elseif {[.isstatetimeover] == "true"} {
  55.         .announcestate finished
  56.     } elseif {[.removebuilding] == "true"} {
  57.         .announcestate remove
  58.     }
  59. }
  60.  
  61. proc wonderwatch_finished {} {
  62.  
  63.     # kann zerstoert oder wieder zusammengeklappt werden
  64.     if {[.iskilled] == "true"} {
  65.         .announcestate explode
  66.     } elseif {[.getartefactmode] == "true"} {
  67.         .announcestate normal
  68.     } elseif {[.removebuilding] == "true"} {
  69.         .announcestate remove
  70.     }
  71. }
  72.  
  73.  
  74. proc wonderwatch_bauphase {} {
  75.  
  76.     # kann zerstoert oder wieder zusammengeklappt werden
  77.     if {[.iskilled] == "true"} {
  78.         .announcestate explode
  79.     } elseif {[.getartefactmode] == "true"} {
  80.         .announcestate normal
  81.     } elseif {[.isstatetimeover] == "true"} {
  82.         .announcestate house
  83.     }
  84. }
  85.  
  86. proc wonderwatch_explode {} {
  87.  
  88.     # Uebergang zum Artefakt oder wegnehmen
  89.     if {[.isanimfinished] == "true"} {
  90.         if {[.getcharges] <= 0} {
  91.             .setremoveable true
  92.         } else {
  93.             .announcestate normal
  94.         .removefromisland
  95.         }
  96.     }
  97. }
  98.  
  99. proc wonderwatch_remove {} {
  100.  
  101.     # Uebergang zum Artefakt oder wegnehmen
  102.     if {[.isanimfinished] == "true"} {
  103.         if {[.getcharges] <= 0} {
  104.             .setremoveable true
  105.         } else {
  106.             .announcestate normal
  107.         .removefromisland
  108.         }
  109.     }
  110. }
  111.  
  112. proc wonderwatch_backpack {} {
  113.  
  114.     # Moeglich: usgeworfen (Nicht mehr "gesammelt") oder im
  115.     # Menue gezeigt (sichtbar)
  116.     if {[.iscollected] == "false"} {
  117.         .announcestate normal
  118.     } elseif {[.isvisible] == "true"} {
  119.         .announcestate menue
  120.     }
  121. }
  122.  
  123. proc wonderwatch_menu {} {
  124.  
  125.     if {[.isvisible] == "false"} {
  126.         .announcestate backpack
  127.     } elseif {[.getartefactuse] == "true"} {
  128.         .announcestate build
  129.     } elseif {[.iscollected] == "false"} {
  130.         .announcestate normal
  131.     }
  132. }
  133.  
  134. proc wonderwatch_build {} {
  135.  
  136.     if {[.iskilled] == "true"} {
  137.         .announcestate explode
  138.     } elseif {[.getartefactmode] == "false"} {
  139.         .announcestate bauphase
  140.     } elseif {[.getartefactuse] == "false"} {
  141.         .announcestate backpack
  142.     }
  143. }
  144.  
  145. proc wonderwatch_cinematic {} {
  146.  
  147.     # empty
  148. }    
  149.  
  150.